library(tidyverse)
library(readxl)
library(patchwork)
library(kableExtra)
library(knitr)
library(ranger)
library(vip)
library(rpart)
library(rpart.plot)
|
Pitch
|
Horizontal
|
Vertical
|
Pitch Proportion
|
Spin Rate
|
|
4-Seamer
|
7.45
|
14.86
|
0.46
|
2285.29
|
|
Changeup
|
14.03
|
32.27
|
0.26
|
1754.87
|
|
Curveball
|
9.45
|
53.35
|
0.26
|
2572.18
|
|
Cutter
|
2.88
|
25.97
|
0.34
|
2380.57
|
|
Sinker
|
15.00
|
22.89
|
0.39
|
2127.16
|
|
Slider
|
6.42
|
36.28
|
0.34
|
2432.44
|
|
Splitter
|
11.71
|
33.09
|
0.28
|
1459.77
|
Pitch Classifications for Stuff+
|
Class
|
Stf+ Range
|
|
1
|
< 55
|
|
2
|
< 70
|
|
3
|
< 85
|
|
4
|
< 95
|
|
5
|
< 105
|
|
6
|
< 115
|
|
7
|
< 130
|
|
8
|
< 145
|
|
9
|
< 160
|
|
10
|
≥ 160
|
## Ranger result
##
## Call:
## ranger(woba ~ ., data = tree_input, num.trees = 1000, importance = "impurity")
##
## Type: Regression
## Number of trees: 1000
## Sample size: 2074
## Number of independent variables: 18
## Mtry: 4
## Target node size: 5
## Variable importance mode: impurity
## Splitrule: variance
## OOB prediction error (MSE): 0.002036583
## R squared (OOB): 0.5904996
Variable Importance
Sliders (Slider, Sweeper, Slurve
Fastballs (Four-Seam, Cutter, Sinker)
Curveballs
Change-Up (Change-Up / Splitter)
Decision Trees
Sliders (Slider, Sweeper, Slurve)
Fastballs (Four-Seam, Cutter, Sinker)
Curveballs
Change-Up (Change-Up / Splitter)
